home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
program
/
swaga_c.zip
/
CHARS.SWG
/
0004_Read Screen CHARS.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-05-28
|
422b
|
22 lines
{
Author: A A Olowofoyeku
As For reading the ASCII stuff from the screen, I have a routine that
allows you to read a Character from any location on the screen.
}
Uses
Dos;
{-- read the Character at the cursor and return it as a Char --}
Function ScreenChar : Char;
Var
R : Registers;
begin
FillChar(R, SizeOf(R), 0);
R.AH := 8;
R.BH := 0;
Intr($10, R);
ScreenChar := Chr(R.AL);
end;